home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d2 / tsbat27.arc / BLK.BAT < prev    next >
Encoding:
DOS Batch File  |  1991-09-19  |  1.9 KB  |  60 lines
  1. echo off
  2.  
  3. rem Here is the most trivial screen saver for whatever its worth.
  4. rem To exit, press any key.
  5.  
  6. rem Not that it is any of my business, but why buy a computer in the
  7. rem first place if you don't intend to use it all the time. :-)
  8.  
  9. echo off
  10. echo ┌───────────────────────────────────────────────────┐
  11. echo │ Screen blanker with push and popup                │
  12. echo │ By Prof. Timo Salmi, ts@chyde.uwasa.fi, 8-Jun-91  │
  13. echo └───────────────────────────────────────────────────┘
  14.  
  15. rem Test whether you have the necessary auxiliary programs available
  16. rem pushscr.exe and popscr.exe needed here are part of the tsutld18.arc
  17. rem package (or whatever version number is the latest).
  18.  
  19. rem If you get an "Out of environment space" message, increase your
  20. rem environment space by using shell configuration in config.sys:
  21. rem Example: shell=c:\bin\command.com /e:1024 /p
  22.  
  23. rem Check that the program pushscr.exe is available
  24. set _found=
  25. if exist pushscr.exe set _found=yes
  26. for %%d in (%path%) do if exist %%d\pushscr.exe set _found=yes
  27. if "%_found%"=="yes" goto _label1
  28. echo.
  29. echo Auxiliary file pushscr.exe must be at path or in the current directory
  30. goto _out
  31.  
  32. rem Check that the program popscr.exe is available
  33. :_label1
  34. set _found=
  35. if exist popscr.exe set _found=yes
  36. for %%d in (%path%) do if exist %%d\popscr.exe set _found=yes
  37. if "%_found%"=="yes" goto _label2
  38. echo.
  39. echo Auxiliary file popscr.exe must be at path or in the current directory
  40. goto _out
  41.  
  42. rem Check that the drive for storing the screen is valid.
  43. rem If it is not then change r:\ to whatever is appropriate for you
  44. :_label2
  45. if exist r:\nul goto _label3
  46. echo.
  47. echo Device for storing the screen is missing. See the rem comments.
  48. goto _out
  49.  
  50. rem Let there be darkness
  51. :_label3
  52. pushscr r:\tmp$$$.scn /o
  53. cls
  54. pause > nul
  55. rem Let there be light
  56. popscr r:\tmp$$$.scn
  57. del r:\tmp$$$.scn > nul
  58. :_out
  59. echo on
  60.